2 REM  SYS 886  -  SAVE SCREEN 1
3 REM  SYS 907  -  RESTORE SCREEN 1
4 REM  SYS 928  -  SAVE SCREEN 2
5 REM  SYS 949  -  RESTORE SCREEN 2
10 FORI=828TO972:READA:X=X+A:POKEI,A:NEXT
20 IFX<>18347THENPRINT"CHECK DATA AGAIN":STOP
30 POKE780,1:POKE781,8:POKE782,1:SYS65466
40 POKE780,2:POKE251,83:POKE252,83:POKE781,251:POKE782,0:SYS65469
50 POKE253,60:POKE254,3:POKE780,253:POKE781,203:POKE782,3:SYS65496
60 POKE780,1:SYS65475
828 DATA 169,000,133,251,133,253,141
835 DATA 055,003,141,057,003,141,059
842 DATA 003,162,000,160,000,177,251
849 DATA 145,253,200,192,000,208,247
856 DATA 230,252,230,254,232,224,004
863 DATA 208,238,173,056,003,133,252
870 DATA 173,058,003,133,254,238,059
877 DATA 003,174,059,003,224,002,208
884 DATA 214,096,169,004,133,252,169
891 DATA 192,133,254,169,216,141,056
898 DATA 003,169,196,141,058,003,076
905 DATA 060,003,169,192,133,252,169
912 DATA 004,133,254,169,196,141,056
919 DATA 003,169,216,141,058,003,076
926 DATA 060,003,169,004,133,252,169
933 DATA 200,133,254,169,216,141,056
940 DATA 003,169,204,141,058,003,076
947 DATA 060,003,169,200,133,252,169
954 DATA 004,133,254,169,204,141,056
961 DATA 003,169,216,141,058,003,076
968 DATA 060,003,000,000,000